home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t5.d64 / mileage.z (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  555b  |  25 lines
  1. 10 PRINT"[147]"
  2. 20 PRINT"GAS MILEAGE PROGRAM"
  3. 30 PRINT:PRINT
  4. 40 PRINT"IS MILEAGE IN KM ? "
  5. 50 GETA$:IF A$=""THEN50
  6. 60 M=0.6214:IFA$="N"THENM=1
  7. 80 PRINT"ARE DISTANCES ACCUMULATIVE ?"
  8. 90 GETA$:IF A$=""THEN90
  9. 100 K=1:IF A$="N" THENK=2
  10. 110 PRINT"IS GAS QUANTITY IN LITRES ?"
  11. 120 GETA$:IFA$=""THEN120
  12. 130 Q=0.2200:IFA$="N"THENQ=1
  13. 190 PRINT"[147]":D0=0
  14. 200 INPUT"ENTER DISTANCE";D
  15. 210 INPUT"ENTER QTY OF GAS";G
  16. 220 INPUT"ENTER COST";C
  17. 230 D=D*M:G=G*Q:C=C+C0:C0=C
  18. 235 IFD0=0THEND0=D:IFK=1THEN275
  19. 240 D1=D:IFK=1THEND1=D-D0
  20. 250 D0=D
  21. 260 PRINT"DIST.(MI)  QTY(GAL)  MI/GAL   TOTAL COST"
  22. 270 PRINTINT(D1*100)/100,INT(G*10)/10,INT((D1/G)*10)/10,C
  23. 275 PRINT:PRINT
  24. 280 GOTO200
  25.